Apple Reference & Presen…rary 6 (Reseller Edition)/Apple Ref. & Pres. Lib.v6.0.toast/pc/3-Presentations/Apple Demos/Training/HyperCard 2.0 Training/•HC 2.0-2/card_29292.txt

Text File | 1990-08-07 | 5KB | 251 lines

-- card: 29292 from stack: in.0-2
-- bmap block id: 29482
-- flags: 0000
-- background id: 27044
-- name: programming
----- HyperTalk script -----
-- This handler performs the animation.
on doAnimation
  reset
  screenToDo
  lock screen
  show btn "measure"
  unlock screen with dissolve
  wait 20
  hide btn "measure"
  show btn "measure1"
  measureIt 1,2
  wait 20
  measureIt 3,4
  showThoseArms
  wait 20
  reset
  show cd btn "See It Again"
end doAnimation

-- This handler resets the animation.
on reset
  lock screen
  hide btn "measure"
  put empty into cd fld "showFld"
  hide btn "mask2"
  hide cd btn "See It Again"
  unlock screen with dissolve
end reset

----------------------------
-- These are mini animations used by doAnimation.
on screenToDo
  repeat for 2
    repeat with n = 1 to 4
      set the icon of btn "thingshappen" to ("disturbance" & n)
      wait 10
    end repeat
  end repeat
  set the icon of btn "thingshappen" to 0
end screenToDo

on measureIt m,n
  show btn ("measure" & m)
  wait 20
  repeat for 3
    show btn ("measure" & n)
    wait 15
    hide btn ("measure" & n)
    wait 15
  end repeat
  wait 20
  hide btn ("measure" & m)
end measureIt

on showThoseArms
  lock screen
  show btn "mask2"
  put "¶" into cd fld "showFld"
  click at the loc of btn "thingsHappen"
  unlock screen with zoom out
  repeat for 2
    put "•" into cd fld "showFld"
    wait 10
    put "¶" into cd fld "showFld"
    wait 15
  end repeat
  put "ª" into cd fld "showFld"
end showThoseArms





-- part 12 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=93 top=89 right=168 bottom=244
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 214
-- text size: 80
-- style flags: 0
-- line height: 80
-- part name: showFld


-- part 4 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=473 top=59 right=88 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 5553 / 5553
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: section


-- part 5 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=198 top=126 right=158 bottom=240
-- title width / last selected line: 0
-- icon id / first selected line: 29348 / 29348
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: measure1


-- part 6 (button)
-- low flags: 80
-- high flags: 0001
-- rect: left=228 top=134 right=154 bottom=261
-- title width / last selected line: 0
-- icon id / first selected line: 3376 / 3376
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: measure2


-- part 7 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=76 top=127 right=159 bottom=118
-- title width / last selected line: 0
-- icon id / first selected line: 29348 / 29348
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: measure3


-- part 8 (button)
-- low flags: 80
-- high flags: 0001
-- rect: left=103 top=135 right=155 bottom=135
-- title width / last selected line: 0
-- icon id / first selected line: 3376 / 3376
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: measure4


-- part 9 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=171 top=126 right=158 bottom=213
-- title width / last selected line: 0
-- icon id / first selected line: 29348 / 29348
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: measure


-- part 10 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=171 top=127 right=167 bottom=206
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: thingsHappen
----- HyperTalk script -----
on mouseUp
  if 1 = 2 then
  end if
end mouseUp



-- part 11 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=250 top=77 right=141 bottom=409
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 174
-- text size: 14
-- style flags: 256
-- line height: 15
-- part name:


-- part 14 (button)
-- low flags: 80
-- high flags: 0001
-- rect: left=146 top=143 right=155 bottom=159
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: mask2


-- part 15 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=57 top=172 right=189 bottom=137
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 174
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: See It Again
----- HyperTalk script -----
-- This handler resets the animation and shows it again.
on mouseUp
  set cursor to none
  reset
  unlock screen
  doAnimation
end mouseUp



-- part contents for card part 11
----- text -----
HyperCard gives you easy—but extendable—access to the power of the Macintosh.